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Con il presente fascicolo prosegue la raccolta 
dei migliori programmi del Commodore C64 
pubblicati su libri e riviste Jackson. 

In ogni numero un supergame originale in- 
glese descritto nei minimi particolari ed in 
più una miriade di altri programmi scelti tra 
utility, grafica, musica, giochi ecc. 

Ciascun listato è accompagnato da una recen- 
sione approfondita e da consigli per un cor- 
retto utilizzo. 

Non solo potrete caricare immediatamente i 
programmi grazie al master su cassetta alle- 
gato alla confezione, ma anche personalizzar- 
li servendovi dei listati e della descrizione 
pubblicata all'interno del fascicolo. 

La Jackson Soft Compilation, è una pubblica- 
zione creata su misura per voi appassionati 
allo scopo di arricchire sempre di più la vo- 
stra raccolta di programmi. 
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Black 

Hawk 


Il gioco 

Quando? In un prossimo fu- 
turo 

Dove? Nel cielo di un grup- 
po strategico di isole 
E qui che si ambienta il su- 
perarne di questo mese che 
non mancherà certo di en- 
tusiasmarvi e di impegnar- 
vi a fondo. Vi trovate nei 
panni di un esperto pilota 
ed il vostro aereo è quanto 
di più sofisticato la tecnolo- 
gia militare abbia potuto, 
fino a questo momento con- 
cepire: si chiama Black 
Hawk. Siete stati inviati, a 
bordo del vostro Black 
Hawk, in una rischiosa 
missione il cui scopo è quel- 
lo di intercettare e di di- 
struggere gli aeroporti e le 
basi missilistiche nemiche. 
Il vostro aereo è molto velo- 
ce, ciononostante dovete 
porre massima attenzione 
per evitare il fuoco di sbar- 
ramento da terra e quello 
dei caccia nemici che vi si 
presentano innanzi all’im- 
provviso. Il buon esito della 
missione dipenderà in gran 


parte dalla rapidità delle 
vostre reazioni, dalla preci- 
sione della vostra mira e 
dal sangue freddo che sa- 
prete mantenere in partico- 
lari circostanze. Il nemico è 
molto agguerrito e tenterà 
di impedirvi di raggiungere 
l’obiettivo ricorrendo ad 
ogni sorta di armi: come 
missili SAM, lanciarazzi, 
turbo elicotteri e cannoni 
antiaerei. 

Il successo vi arriderà in 
proporzione all’entità della 
cifra SLF che riuscirete ad 
ottenere, di volta in volta 
calcolata in percentuale 
dallo stesso computer in ba- 
se alla natura dei bersagli 
che riuscirete a colpire e a 
distruggere con i vostri 
missili. Più la cifra è alta e 
maggior saranno le muni- 
zioni a vostra disposizione 
nelle missioni future. 
Quante missioni riuscirete 
a portare a termine prima 
di essere abbattuti? La ri- 
sposta la avrete prendendo 
posto nel vostro fighter e 
facendo rotta verso il cam- 



po, o meglio il cielo, di bat- 
taglia. 

Preliminari 

Per caricare correttamente 
il gioco, procedete come se- 
gue: 

1) Assicuratevi innanzitut- 
to che al vostro C64 siano 
collegati come si deve sia il 
televisore (o monitor) che il 
registratore a cassetta. 

2) Accendete sia il compu- 
ter che il televisore 

3) Inserite la cassetta entro 
il registratore assicurando- 
vi che il nastro sia all’ini- 
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zio. 

4) Tenendo premuto il tasto 
SHIFT, battete anche RUN/ 
STOP. 

5) Non appena sullo scher- 
mo apparirà la scritta 
PRESS PLAY ON TAPE, rila- 
sciate entrambi i tasti e 
premete il PLAY sul regi- 
stratore: il game inizierà a 
caricarsi. 

6) Il programma è assai lun- 
go quindi, prima che il cari- 
camento giunga al termine, 
passeranno diversi minu- 
ti... attendete e concentra- 
tevi. 




5 


Opzioni 

1) Selezionate il grado di 
difficoltà spostando la clo- 
che del joystick in una dire- 
zione qualsiasi. Potete sce- 
gliere tra ROOKIE (per chi 
sta imparando) e HONCHO 
(per chi ha già una certa 
esperienza). 

2) Per iniziare il gioco, pre- 
mete il tasto dello sparo. 

3) Potete interrompere in 
ogni momento lo svolgi- 
mento del game premendo 
F3. Per ripartire date F5. 

La battaglia prevede un cer- 
to numero di missioni, ogni 
volta portatane a termine 
una, ve ne sarà affidata una 
successiva di maggiore dif- 
ficoltà, mentre se non riu- 
scirete nell’intento, ripar- 
tirete dalla medesima. Il 
primo vostro obbiettivo è la 
pista di atterraggio nemica 
nella missione otto. 

Black Hawk si ispira ai più 
moderni sistemi di attacco 
computerizzato; vi permet- 
te di rilevare all’istante gli 
obiettivi nemici. La sua più 
importante caratteristica è 
quella di prevedere due tipi 
di display: uno schermo di 
attacco che mostra la pano- 
ramica delle postazioni ne- 
miche sotto il tiro dei vo- 
stri missili, e uno schermo 
di difesa che presenta il 
Black Hawk mentre viene 
attaccato dai caccia, dagli 
elicotteri e dai carri armati 
nemici. Lo schermo difensi- 
vo si sostituisce a quello of- 
fensivo ogni qualvolta vi 
lasciate sfuggire una unità 
nemica dalla parte inferio- 
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re del campo di battaglia. 



Schermo di 
| difesa ( con 
bordo di color 
marrone) 

Il vostro Black Hawk è dota- 
to di cannoni a tiro rapido 
in grado di abbattere i cac- 
cia nemici che vi si fanno 
incontro; per azionarli pre- 
mete il tasto di sparo del 
joystick. 

Il vostro centro strategico 
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ha calcolato l’effetto delle 
distruzioni dei vari stabili- 
menti e apparati militari 
nemici ed in funzione al lo- 
ro valore ha stabilito la ci- 
fra SLF (che sta per Strate- 
gie Loss Factor, ovvero Fat- 
tore di Perdite Strategiche) 
che viene aggiornata conti- 
nuamente dal sistema com- 
puterizzato di attacco in ba- 
se agli obiettivi colpiti. 

I valori SLF sono i seguen- 


ti: 

Carri armati 15 

Razzi 30 

SAM 80 

Aerei 45 

Cacciatorpedinieri 70 

Jet 90 

Elicotteri 55 

Altri 01 


Badate bene che il compu- 
ter di bordo non tiene conto 
dei velivoli abbattuti quan- 
do vi trovate nello schermo 
di difesa per cui, in tali con- 
dizioni, non aggiorna la ci- 
fra percentuale dei bersagli 
colpiti (OTPF che deriva da 
On Target Percentual Figu- 


re) che stabilisce poi la ci- 
fra SLF. Se siete in missione 
Honcho, tutti i punteggi 
vengono moltiplicati per il 
numero della missione che 
state portando avanti vice- 
versa, in missione Rookie, 
ciò non avviene. 

Schermo di 
attacco (con 
bordo di colore 
nero) 

Nella parte bassa dello 
schermo esiste un indicato- 
re che rivela la posizione 
verticale del vostro Black 
Hawk e nello stesso tempo 
il punto di partenza del mi- 
rino del missile teleguida- 
to. Per direzione il mirino, 
premete lo sparo e contem- 
poraneamente spostate il 
joystick nella direzione vo- 
luta. 

Per colpire, rilasciate il pul- 
sante di sparo e vedrete che 
il mirino rallenta il suo mo- 
vimento, cambia colore (da 




bianco a rosso) e quindi 
sgancia il missile. 

Il computer vi aiuta ad ot- 
tenere le migliori prestazio- 
ni di SLF calcolando auto- 
maticamente l’OTPF di ogni 
vostra missione; sta poi a 
voi seguire la strategia più 
assennata per far si che la 
cifra sia più alta possibile. 
Cercate di distruggere il 
maggior numero di posta- 
zioni terrene fisse in modo 
da incrementare veloce- 
mente l’OTPF senza però 
perdere di vista i bersagli 
mobili che aspettano solo 
una vostra disattenzione 
per raggiungere il bordo in- 
feriore del campo e farvi 
passare allo schermo di di- 
fesa. La distruzione dei ber- 
sagli mobili non influisce 
sul calcolo dell’OTPF. 

I valori si SLF ottenibili col- 
pendo gli obiettivi nemici 
sono: 

Cannone antiaereo 100 
Stazione radio 700 

Postazione di coman- 
do 1200 

(2000 se ha la bandiera) 
Rampa di lancio 400 
Lanciamissili SAM 500 
Radar 800 

Radar jet 1000 

Aerei a terra 2000 

(a livello 8) 
Aeroporto 2400 

(a livello 8) 
Tutti questi valori vanno, 
come già accennato, molti- 
plicati per il numero della 
missione ad eccezione di 
quando operate in Rookie. 
Al termine di ogni missio- 
ne, il programma presenta 
il vostro OTPF il quale vie- 
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ne immediatamente analiz- 
zato e valutato dal Centro 
Strategico che provvede ad 
aggiornare adeguatamente 
la cifra di SLF. 

Se riuscirete ad ottenere un 
buon OTPF, come premio vi 
verranno forniti ulteriori 
armamenti come qui indi- 
cato: 

Arma OTPF 
ECM Pod 20 

Cannone X 30 

Blitvig 40 

Wild Weasel 60 

Qualora veniste distrutti 
prima di portare a termine 
la vostra missione, 
perdereste anche gli 
eventuali armamenti 
guadagnati fino a quel 
momento. 

Vediamo ora di che natura 
sono queste armi 
aggiunte: 

ECM Pod 

Ve lo aggiudicate con un 
OTPF uguale o maggiore al 


20%. L’Electronic Counter 
Measures, segnala la pre- 
senza di radar nemici, di 
emissioni elettromagneti- 

che (oppure a IR) ed in più 
mostra la dislocazione di 
obietivi nemici come radio, 
radar, postazioni d’ascolto 
ecc... I simboli sono: 

Bianco Radar elicotteri 

Grigio Radar a lunga 

portata 

Marrone Rilevatore 

radio 

Rosso Radar caccia- 

torpediniere 

Con questa arma-detector 
sarete in grado di distrug- 
gere elicotteri, aerei da cac- 
cia, carri armati e caccia- 
torpedinieri ancora pirma 
che essi si presentino sullo 
schermo d’attacco. 

Cannone X 

Raddoppia il volume del vo- 
stro fuoco quando vi trova- 
te nello schermo di difesa. 
Si ottiene col 30% o più di 



OTPF. 

Blitvig 

È l’ultimo ritrovato in fatto 
di armi distruttive in quan- 
to opera per mezzo dei mici- 
diali EMP (Impulsi elettro- 
magnetici) i quali hanno il 
potere di annientare qual- 
siasi unità nemica presente 
nel campo visibile. Per atti- 
varlo serve almeno un 40% 
di OTPF e il tasto “E". Il nu- 
mero degli interventi di 
questa tremenda arma è di- 
rettamente legato alla per- 
centuale dello stesso OTPF 
in relazione a quanto se- 
gue: 

1 =40% 

2 = 50% 

3 = 60% 

4 = 70% 

Wild Weasel 

Questa è invece una forma 
di difesa che rende il vostro 


aereo invulnerabile per 
breve tempo. Si attiva col 
tasto “N” ed è impiegabile 
una sola volta nella medesi- 
ma missione. 

Abbreviazioni 

ECM = Electronic Counter 
Measures 

EMP = Electromagnetic Pul- 
sa 

IR = Infrared 

OTPF = On Target % Factor 
SLF = Strategie Loss Factor 

Consigli 

1 - Il metodo più veloce e 
sicuro per distruggere i 
bersagli aerei è quello di in- 
tercettarli col cursore bian- 
co. Cercate di distruggere il 
maggior numero possibile 
di bersagli terreni e ciò per 
due ragioni: 

a) Il numero degli avversa- 
ri aerei è inversamente pro- 
porzionale a quello dei ber- 


sagli distrutti a terra, per 
cui più basi fisse togliete di 
mezzo, meno attaccanti ae- 
rei vi trovate davanti, 
b) Cosi facendo aumenta 
l’OTPF e con esso la probabi- 
lità di ottenere armi più so- 
fisticate per le missioni fu- 
ture. 

2 - Assicuratevi di annien- 
tare le postazioni di Coman- 
do; se fallite, vedreste rad- 
doppiati gli aerei nemici. 
3-11 calcolo dell’OTPF ini- 
zia solo dopo aver abbattu- 
to almeno dieci missili tele- 
guidati nello schermo d’at- 
tacco. 

4 - Un sistema veloce per 
bombardare i bersagli ter- 
resti è quello di attendere 
che essi capitino sotto al 
puntatore del missile: a 
questo punto premete il 
pulsante di sparo e spostate 
la cloche all’indietro fino a 
portare il mirino sopra l’in- 
dicatore presente nella par- 
te bassa dello schermo, 
quindi rilasciate il “fire" e 
vedrete che il missile esplo- 
derà immeditamente sul 
bersaglio sottostante. 
Giunti a questo punto, ap- 
presa la teoria, non vi resta 
altro da fare che vestire la 
tuta da combattimento, sa- 
lire sul vostro scintillante 
Black Hawk e... in bocca al 
lupo. 
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UGHI 


È un divertentissimo gioco 
che mette a dura prova i vo- 
stri riflessi e la vostra scel- 
ta di tempo; come scenario, 
nientemeno che... la prei- 
storia! Siamo alle soglie del- 
l’inverno e voi dovete aiu- 
tare UGH, un simpatico in- 
digeno, a far provvigione di 
uova presso il nido dello 
pterodattilo di nome Pterry 
il quale, coadiuvato effica- 
mente dal tirannosauro 
Rex e dal triceratops Trici 
fa di tutto per ostacolare i 
vostri raid. 


Apertura 

Caricate il programma da 
nastro dando il comando 
SHIFT - RUN/STOP. Al ter- 
mine del caricamento il 
programma va in autorun 
presentando il titolo ed ac- 
compagnandolo con un al- 
legro sottofondo. Se non 
premete nessun tasto, il 
quadro con il titolo cambia 
continuamente colore. Bat- 
tere un tasto qualsiasi e ve- 
drete le istruzioni in lingua 
inglese con i punti ottenibi- 
li. Premete nuovamente un 
tasto a piacere, ed il compu- 


ter a questo punto vi chiede 
il grado di difficoltà che do- 
vrete impostare scegliendo 
tra A, B e C (A che sta ad 
indicare il livello più faci- 
le). Il game è compatibile 
sia col joystick, sia con la 
tastiera. L’opzione tastiera 
- joystick si seleziona con i 
tasti F3 e FI rispettivamen- 
te. Optando per la tastiera, 
potrete ridefinire i tasti da 
usare per vostra massima 
comodità. In questo caso è 
lo stesso programma che vi 
chiede i nuovi tasti cui ab- 
binare le varie funzioni. Se 
desiderate impiegare il joy- 
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stick, lo dovrete collegare 
alla porta 2. Alla fine vi sa- 
rà presentato il punteggio 
assieme al record vigente. 

Il gioco 

Il game si ambienta nell'Età 
della Pietra mentre sta per 
sopraggiungere l’inverno. 
Il povero UGH, per soprav- 
vivere, è costretto a fare 
scorta di cibo e per far ciò, 
non c’è di meglio che rag- 
giungere il nido di Pterry 
in cima al colle per sottrar- 
re quante più uova possibi- 
li da trasportare alla pro- 
pria caverna. Purtroppo, 
data la mole imponente di 
ogni uovo, UGH ne può tra- 
sferire uno solo alla volta 
badando, nel frattempo, a 
scansare i macigni sgancia- 
ti dall’irato Pterry. Come se 
non bastasse, UGH deve 
guardarsi anche dall’entra- 
11 




re in collisione con Rex e 
Trici i quali, a turno, hanno 
deciso di dare una mano al- 
l’amico Pterry. Il percorso 
che il tirannosauro e il tri- 
ceratopo compiono attra- 
verso i vari sentieri è del 
tutto casuale, come lo è il 
lancio dei massi da parte 
dello Pterodattilo. Come 
unica arma UGH possiede 
una lancia ma, una volta 
scagliata, il nostro eroe ri- 
mane senza alcuna difesa e 
per riarmarsi, deve tornare 
nuovamente alla caverna. 
La traiettoria del dardo si 
sviluppa nella direzione di 
marcia e per far centro è ne- 
cessario che UGH si porti a 
distanza utile dal bersaglio 
tenendo conto che, una vol- 
ta colpiti, Rex e Trici posso- 
no riapparire da una delle 
due caverne laterali al trac- 
ciato. Non appena raggiun- 
to il nido in cima al colle, 
UGH preleva l’uovo e, se è 
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ancora armato, abbandona 
la lancia percorrendo il ri- 
torno senza difesa alcuna. 
Spesse volte, i tasti di dire- 
zione devono essere aziona- 
ti tempestivamente per di- 
rigere UGH nel senso volu- 
to, cosa che avviene istinti- 
vamente una volta presa 
bene la mano . Più il grado 
di difficoltà è elevato e più 
gli avversari infurbiscono 
scegliendo nuovi percorsi e 
lanciando massi con mag- 
gior frequenza. 

Il punteggio corrente si 
presenta nell’angolo in bas- 
so a sinistra, seguito dal 
numero di uomini ancora a 
disposizione dal grado di 
difficoltà prescelto ed infi- 
ne dal punteggio record ot- 
tenuto fino a quel momen- 
to. 

I punteggi elevati, come si 
sa, sono frutto di esperien- 
za, per cui eccovi la tabella 
da tener sempre presente 
per arrivare lontano: 

- Per ogni uovo portato alla 
caverna... 600 punti 

- Per ogni uovo prelevato 
dal nido... 400 punti 

- Se riuscite a colpire lo 
Pterodattilo... 250 punti 

- Se riuscite a colpire Tri- 
ci... 76 punti 


I comandi 

Potete ridefinire sia i tasti 
che muovono UGH sia quel- 
lo del lancio del dardo, sia 
quello dell’arresto del gio- 
co, ma se possedete un joy- 
stick, inseritelo in porta 2 
e ne guadagnerete in mano- 
vrabilità. 
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Guida all’input C64 


TABELLA DI CONVERSIONE 


{HOME} HOME 

{ CLR } PULIZIA SCHERMO 

{CUR.SU} CURSORE IN ALTO 

{CUR.GIU} CURSORE IN BASSO 

{CUR.DES} CURSORE A DESTRA 

{ CUR . SIN } CURSORE A SINISTRA 

{SPC} SPAZIO 

{ RVS ON} REVERSE ON 

{ RVS OFF} REVERSE OFF 

{ INST } INSERT 

{FI } TASTO FI 

{ F2 } TASTO F2 

{ F 3 } TASTO F3 

{ F4 } TASTO F 4 

{ F5 } TASTO F5 

{ F6 } TASTO F6 

{ F7 } TASTO F7 

{ F8 } TASTO F8 

{BLACK} COL. NERO (CTRL+1) 

{WHITE} COL. BIANCO (CTRL + 2) 

{RED} COL. ROSSO (CTRL*3) 

{ C YAN } COL. CIANO (CTRL+4) 

{PURPLE} COL. PORPORA (CTRL + 5) 

{GREEN} COL. VERDE (CTRL + 6) 

{BLUE} COL. BLU (CTRL + 7) 

{YELLOW} COL. GIALLO (CTRL + 8) 

{ORANGE} COL. ARANCIO (CBM+1) 

{BROWN} COL. MARRONE (CBM + 2) 

{ LT . RED } COL. ROSSO CHIARO (CBM*3) 

{ GRAY1 } COL. GRIGIO 1 (CBM+4) 

{ GRA Y2 } COL. GRIGIO 2 (CBM-5) 

{LT. GREEN} COL. VERDE CHIARO (CBM*6) 

{LT.BLUE} COL. BLU CHIARO (CBM + 7) 

( GR A Y3 1 COL. GRIGIO 3 (CBM*8) 


Norme 

per 

la battitura 

I caratteri grafici ottenuti 
con la pressione dei tasti 
“Sliift” e “CBM”, sono 
codificati in modo da 
indicare il tasto da 
premere assieme a “Shift” 
o “CBM". Es. il cuoricino è 
codificato con I SH 8|. 

II numero dentro le 
parentesi indica le volte 
che il tasto va premuto. 
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Calendario 


80 DIMM$( 12) :F0RI-1T012:READM$(I ) :NEXTI 

90 SYS65517 : A-PEEK(78l ) .• IFA-40THENPOKE53 
281 . 1 

100 PRINT" {CLR } ( 2*CD } { 3*CR } QUESTO {SPC } PR 
OGRAMMA" : PRINT" { 6*CR } PRODUCE {SPC } UN" 

105 PRINT" {2*CR {{PURPLE {CALENDARIO {SPC )M 
ENSI LE{ BLUE}" : PR I NT" {5»CR{ SULLO {SPC) 
SCHERMO" 

1 10 PR INT" { 2*CD ){ 6*CR{ IMPOSTAI SPC) IL" :PR 
INT" {MCR{ {RED {MESE (BLUE) {SPC }E (SPC) 
L' {RED}ANNO{BLUE}” 

1 1 1 PRINT" {3*CR )CHE{SPC {VUOI {SPC {VEDERE" 

: PRINT" {CD ) {2*CR ) (ESEMPIO: {SPC 1 {RED) 
12, 198 3 {BLUE) ) (PURPLE) {2*CD}" 

130 PRINT" {6*CR)" ; : I NPUTMO , Y : PR INT" { 2*CD 
} { 7 *CR } {PURPLE ) GRAZI E 1 { BLUE } { CD ) " : FO 
RI-1T0800:NEXT 

292 IFMO-10RMO-30RMO-50RMO-70RMO-80RMO-1 
OORMO=12THENE1-31 

293 IFMO-AORMO-60RMO-90RMO-1 1THENE1-30 

29 0 1FMO = 2ANDY/OOINT(Y/0 )THENE 1 *28 

295 IFMO-2ANDY/0-INT(Y/0)THENGOSUB1 OOO 

297 PRINT" {CLR} (CD) {CR ) { RED ) " ; M$ ( MO ) ; ■ {S 
PC ) " i Y ; " { BLUE ) " 

298 GOSUB135O:IFA=0OTHENPRINT 

300 PRINT" { 2*CR } {RED }D{ BLUE) (2*CR)L{2*CR 
}M{2*CR)M{2*CR)G{2*CR)V{2*CR)S" 

305 GOSUB1360 T F S 

310 D-1 : G0SUB1 050 

320 IFD1-7THENF0RI-1T019:PRINT"{CR)"; : NE 
XT: PRINTD: I FA- OOTHEN PRINT 

321 IFD1 -7THEN330 

322 IFD1-6THENF0RI-1T016:PRINT"{CR)"; :NE 
XT : PRINTD ; :GOT0330 

323 IFD1-5THENF0RI-1T01 3: PRINT" {CR}" ; :NE 
XT : PRINTD ; :G0T0330 

320 IFDI-OTHENFORI-ITOIO: PRINT" {CR}"; : NE 
XT: PRINTD; :GOTO330 

325 IFD1-3THENF0RI-1T07: PRINT" {CR}"; :NEX 
T: PRINTD; :G0T0330 

326 1FD1-2THENFORI-1TOO:PRINT"{CR}"; :NEX 
T: PRINTD; :G0T0330 

327 IFD1-1THENPRINT" {CR) {RED}" ;D;"{BLUE) 
" ; : GOTO330 



Con questo utilissimo pro- 
gramma, potrete ottenere 
sullo schermo del vostro 
monitor o del vostro televi- 
sore il calendario del mese 
che vorrete. Potrete como- 
damente vedere in che gior- 
no della settimana siete na- 
ti oppure in che giorno ca- 
drà il 31 dicembre del 
1999. 

11 programma è breve e 
quindi velocemente carica- 
bile da cassetta, ma se il vo- 
stro impianto è dotato an- 
che di drive, allora potrete 
trasferirlo su disco con il 
16 



vantaggio di un caricamen- 
to istantaneo. 

Come dimostrano le videa- 
te, i numeri dei giorni sono 
incolonnati sotto le rispet- 
tive iniziali con le domeni- 
che segnate in rosso. Per 
ovvie ragioni non possono 
essere presentate in rosso 
anche le feste infrasettima- 
nali, ma francamente sa- 
rebbe chiedere troppo! 


1 

330 FORD-2TOE1 :GOSUB1050 

331 IFD1»1ANDD<=9THENPRINT"{CR){RED)";D; 

" { BLUE } ? ; :G0T0345 

332 IFD1 -1 ANDD>9THEN PRINT" (RED)" ;D; " (BLU 
E}" ; :G0T0345 

333 IFD1-7THEN340 

334 IFD<-9THENPRINTD; :G0T0345 

335 PRINT" {CL}" ;D; :G0T0345 

340 IFD>9THENPRINT" { CL } " ; D : G0T0345 

341 PRINTD 

345 IFA-40ANDD1-7THENPRINT 

346 NEXTD 

1 045 PRINT: PRINT :FL-1 : G0SUB1 350 : IFA-22TH 
ENPRINT" ( 3*CU }" 

1 049 PRINT : END 

1050 IFM0-1THENM0=13:X-Y-1 :GOT01080 
1060 IFM0-2THENM0-1 4 :Y-Y-1 
1080 M-MO-2 

1 100 D1=INT(2.6*M-0.2)+D»Y-1900*INT((Y-1 
900J/4 ) 

1150 D1-D1+INT(19/4)-2»19 

1200 D1-D1-INT(D1/7)*7*1 

1210 IFM0-40RM0-9THEND1-D1+1 

1230 IFMO-1 3THENM0-1 :Y-Y*1 : GOT0 1-245 

1240 IFMO-1 4THENM0-2: Y-Y*1 :D1-D1+1 

1244 IFD1 -8THEND1-1 

1 245 IF( Y-2100ANDM0>-3 )0R ( Y>21 00 )THEND1 - 
D 1 - 1 :IFD1-0THEND1-7 

1247 IF(Y-2200ANDM0>-3)0R(Y>2200)THEND1- 
D1-1 :IFD1-0THEND1-7 

1249 IF(Y-230OANDMO>-3)OR(Y>2300)THEND1- 
D1-1 i IFD1 -0THEND1 -7 

1250 RETURN 

1 350 IFFL -OTHENPRINT: FORI- 1T022: PRINT"*" 

; :NEXT:PRINT:RETURN 

1 355 IFD1-7THENPRINT" {3*CU}" :F0RI-1T022: 

PRINT"*" ; : NEXT:RRINT" {CU} " : RETURN 
1 358 FORI- 1T022: PRINT"*" ; :NEXT: PRINT" {CU 
}* : RETURN 

1 360 PRINT" {2*SPC} {CBM T },{ 2*SPC } { CBM T}{ 
2*SPC } { C BM T} {2*SPC{ {CBM T){2*SPC}{ 

CBM T ) { 2*SPC }*{ CBM T}{2*SPC}{CBM T}" 

: RETURN 

1400 IF(Y/100-INT(Y/100))AND(Y/400<>INT( 

Y/4 00) ) THENE 1-28: GOT0 1 410 
1405 E1-29 
1410 RETURN 

1 420 DATA" {3«SPC {GENNAIO" ,"{3«SPC) FEBBR A 
IO "," {4*SPC} MARZO", "{4*SPC} APRILE" 

1430 DATA" {4 *SPC {MAGGIO" ,"{4*SPC) GIUGNO" 
,"{4»SPC {LUGLIO" ,"{4*SPC) AGOSTO" 

1440 DATA" {2*SPC{ SETTEMBRE" ," (3*SPC {OTTO 
BRE" , " { 3*SPC {NOVEMBRE" ," {3*SPC{ DICE 
MBRE" 


“ Pubblicato su Paper Soft 
n° 12-'84 • 



Funzioni 3D 



1 REM GRAFI 8 

IO POKE56,32:POKE55,0:CLR 
20 DIMX*(319),NJ(319) 

25 FORI-OT0319:NJ(I)-200:NEXT 
30 F0RI-0T01 85: READ A: POKE491 52*1 ,A:NEXT 
40 POKE53280 , 0 : P0KE53281 ,0 
50 P0KE53272.PEEK(53272)0R8 
60 POKE53265,PEEK(53265)OR32 
70 POKE52000, 16:SYS49152 
80 X3--2:F0RY3--2TO2STEP.02:GOSUB240: NEX 
T 

90 SP-.3 

100 FORX3«-2TO2STEP.02:Y3--2 
105 GOSUB240:Y3-2:GOSUB240 
110 RX-X3-XNT(X3/SP)«SP 
120 F0RY3— 2+RXT02STEPSP 
130 G0SUB240 
140 NEXTY3 

150 FORY3-2-RXTO-2STEP-SP 

160 G0SUB240 

170 NEXTY3 : NEXTX3 

1 80 X3-2: F0RY3--2T02STEP.02:G0SUB240:NEX 
T 

190 POKE 198,0 

200 GETA$: I FA $ - " "THEN200 

210 P0KE53272,PEEK(53272)AND247 

220 POKE53265,PEEK(53265)AND223 

230 PRINTCHR$( 1 47) :END 

240 Z3-Y3«Y3/4-X3*X3/4 

245 X2-l60+(Y3+X3/2)*49:Y2-100+(Z3+X3/2) 
* 49 


Questo programma porta a 
risultati altamente spetta- 
colari essendo in grado di 
disegnare funzioni di due 
variabili reali; in altre pa- 
role traccia figure tridi- 
mensionali. Ecco il com- 
mento al programma: 

Linea 10: pone la fine della 
momoria a 8192 (2000H). 
Linea 20: dimensiona i vet- 
tori X% (max) e N% (min) di 
320 elementi, quante sono 
le colonne di punti nel vi- 
deo. Questi serviranno a sa- 
pere se il punto che si sta 
per disegnare è coperto dal- 
la funzione o no. Dopo aver 
dimensionato i vettori po- 
ne in tutti gli elementi di 
N% il numero 200. 

Linea 30: carica in memoria 
le routines 

Linea 40: schermo e sfondo 
neri. 

Linea 50: entra nel modo 
17 


pagina grafica. 

Linea 60: pone la pagina 
grafica in 8192 (2000H). 
Linea 70: sceglie bianco su 
nero 

Linea 80: calcola e disegna 
in assonometria (appog 
giandosi alla routine in 
240) il valore della fuznio- 
ne sul segmento X=-2,-2< Y 
<2, cioè il segmento più vi- 
cino all’osservatore. I pun- 
ti del segmento sj* cui viene 
fatto il conto sono molto vi- 
cini (passo = 0.2 cioè 1/60 
del segmento stesso). 

Linea 90: pone il passo del 
reticolo = 0.3. Aumentando 
il valore della variabile SP 
si otterrà un reticolo più 
largo, diminuendo un reti- 
colo più stretto. 

Linee 100-106: inzializza 
un ciclo che incrementa la 
X (asse che va dall’osserva- 
tore verso lo schermo) con 
passo di 0.02. Quindi calco- 
la e disegna il valore della 
funzione per Y=-2 e per Y=2 
cioè ai due lati del domi- 
nio. 

Linee 110-120: inizializza 
un ciclo che incrementa la 
Y con passo SP (in questo 
caso 0.3) partendo da un va- 
lore di Y compreso tra -2-SP 
e -2+8P in modo che il reti- 
colo sia diagonale rispetto 
al dominio. 

Linea 130: calcola e disegna 
il valore della funzione per 
quei valori di X e Y. 

Linea 140: chiude il ciclo 
della Y. 

Linee 160-170: esegue lo 
stesso lavoro per i valori 
della Y simmetrici per dise- 
gnare le diagonali perpen- 
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240 Z3=S I N < X3#X3+ V3# V3 > 



dicolari alle prime. 

Linea 170: chiude anche il 
ciclo della X. 

Linea 180: come la linea 80 


solo che il segmento è X=2 
(il più lontano dall’osserva- 
tore). 

Linea 190: svuota il buffer 


250 IFY2>XJ(X2)THENXJ(X2)-Y2:G0T0280 
260 IFY2<N> (X2)THENN* ( X2 ) - Y2 : GOTO290 
270 RETURN 

280 IFY2<N*(X2)THENNJ (X2)-Y2 
290 GOSUB3O0: RETURN 
300 P0KE52000, Y2:P0KE52001 .X2AND255 
310 P0KE52002,X2/256:SYS*»9 195: RETURN 
1000 DATA 169, 32,1 33,255, 1 69,0,1 33,251» 
1010 DATAI 69 .0 , 1 68, 1 «5 , 25 4 ,200 ,208 , 251 
1020 DATA230.255, 165,255, 201 , 6*1 , 208 , 240 
1030 DATAI 73, 32. 203, 1 53. 0,«, 153,0 
1040 DATA5, 153, 0,6, 153, 0,7, 200 
1050 DATA208.2H1 ,96, 1 69 ,200 ,56 ,237 , 32 
1060 DATA203.ini ,32,203,41 ,248,141 .31 
1070 DATA203,173,33.203,m ,248,141 .30 
1 080 DATA203,1 73,32,203,'»1 .7 , 1 33,254 
1 090 DATA 1 73, 33, 203, *»1 .7,141 ,29.20 3 
1 100 DATA 165, 25»» .2*1 ,109,30,203,1 33,25»» 
Ilio DATA 1 69, 32, 1 09, 3»», 203, 1 33,255,1 69 
1120 DATAO ,1 41 ,28,203,173,31 .203,2»» 

1 130 DATA42 ,1 41 , 27 , 203 , 46 , 28 , 203 , 46 
11»»0 DATA 27, 20 3, »»6, 28, 203, 173, 31 ,203 
1150 DATAI 09,27,203, 1 4 1 ,27,203,169,0 
1160 DATA 109, 28, 203, 1 4 1 , 28 , 20 3 . 2»» , U6 
1170 DATA27.203,»»6,28,203,»»6,27,20 3 
1 180 DATA 46, 28, 203, 46 . 27. 203, 46 . 28 
1190 DATA203,2i|,17 3.27,203,101 ,25»». 133 
1200 DATA25»»,173,28,20 3.101 ,255,1 33,255 
1210 DATA 169, 128, 17 *1,29,203, 2»»0, A, 7 »» 
1220 DATA202.208 ,252, 1 60,0, 17, 254, 145 
1230 DATA25*» , 96 


240 Z3= < X3#X3+ V3* Y3 > * < X3*X3+V3* V3 > X32- 1 



di tastiera. 

Linea 200: attende che sia 
premuto un tasto. 

Linea 210-220: riportano il 
video in modo caratteri. 
Linea 230: pulisce lo scher- 
mo e termina il program- 
ma. 

Linee 240-245: calcolano il 
valore della funzione tridi- 
mensionale (Z3) e quindi i 
valori delle X e Y bidmen- 
sionali cioè quelli dell’asso- 
nometria. 

Linea 250: se il valore della 
Y2 su quella colonna è mi- 
nore del valore appena cal- 
colato, pone il valore del 
massimo sulla colonna 
uguale al valore appena cal- 
colato e salta alla linea 280. 
Linea 260: il valore minimo 
della Y2 su quella colonna 
è maggiore del valore appe- 
na calcolato, allora pone il 
valore del minimo sulla co- 
lonna uguale a quello appe- 
na calcolato, e salta alla li- 
nea 290. 

Linea 280: se il valore della 
Y2 cade tra massimo e mini- 
mo il punto è nascosto dalla 
funzione precedentemente 
disegnata e quidi non deve 


essere disegnato. 

Linea 290: il programma ar- 
riva qui se il valore della Y 
è maggiore del massimo della 
Y su quella colonna. Qui, se 
il valore della Y è anche mi- 
nore del minimo su questa 
colonna pone il minimo 
uguale al valore appena cal- 
colato. Questo caso si verifi- 
ca quando si disegna il pri- 
mo punto su di una colon- 
na: infatti all’inizializza- 
zione: N%=200 e X%=0. Sal- 
ta alla routine che disegna 
il punto e ritorna. 

Linea 300-310: prepara la 
routine, la chiama, quindi 
ritorna. 

Linee 1000-1230: contengo- 
no i dati relativi alle routi- 
ne. 

Il programma permette di 
disegnare una porzione di 
funzione tridimensionale e 
per essere più precisi dise- 
gna una porzione -2< 
X<2. -2< Y <2, -1<Z <1. 
Per vedere una funzione in 
uno spazio maggiore o mi- 
nore di questo, conviene 
modificare la funzione stes- 
sa nelle linee 240-245. Ad 
esempio, se si vuole vedere 


la funzione F(X,Y) su un 
dominio -10 < X< 10,-20< 
Y <20, basterà impostare 
la funzione F(X*5,Y*10)/M, 
dove M è il massimo che AB- 
S(F(X*5,Y*10)) assume nel- 
l’intervallo -2< X<2, -2< 
Y <2, o (che è la stessa cosa) 
che la funzione F(X, Y) as- 
sume nell’intervallo -10 < 
x<10, -20 < y<20. In ogni 
caso la funzione sarà cen- 
trata nell’origine (X=0, 
Y=0). Si può modificare il 
programma tenendo conto 
delle regole appena mostra- 
te; l’unico svantaggio che 
può comportare un’opera- 
zione di questo tipo è il tem- 
po impiegato dal program- 
ma per calcolare massimo e 
minimo. 

Per ottenre figure diverse 
far girare il programma so- 
stituendo la linea 240 con 
una delle seguenti: 

240 Z3=SIN(Y3*2) 
oppure 

240 Z3=SIN(X3*X3*+ 

Y3*Y3) 

oppure 

240 Z3=(X3*X3*+Y3*Y3) 
*(X3*X3+Y3*Y3)/32-l 


I disegni illustrati sono sta- 
ti ricavati modificando co- 
me sopra la linea 240. ■ 


Tratto dal libro 
“ Commodore C64 
la grafica e il 
suono”. 
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RUBRICA 


La versione di questo utile 
programma qui presentata, 
è stata scritta per il C64 con 
floppy disk, ma con pochis- 
simi cambiamenti la potre- 
te adattare al registratore a 
cassette. 

Il programma crea un indi- 
rizzario elettronico, e con- 
tiene anche una opzione di 
stampa per etichette posta- 
li. Scegliendo le varie opzio- 
ni contenute nel menu, po- 
trete introdurre nuovi da- 
20 


100 

110 

120 
130 
1 HO 

150 

160 

165 

170 

175 

180 

190 

200 

210 

220 

230 

240 

250 

260 

270 

280 

290 


C-53280 : REM C64 MAILING LIST PER SIS 
TEMA A DISCHI 

P0KEC,5:P0KEC+1 , 5 : READR$ , R : FORI- 1 TOR 
:READ0$(I):NEXT:DATA"C6H{2 SPC) MAI LI 
NG { 2 SPC } LI ST " 

DATA8,"N0ME(PRIMA IL COGNOME)" , "VIA" 
."CITTA' " ,"PROV." ."CODICE" 

DATA "TELEF. CASA NO. "."NOME AZIENDA", 
"TELEF . UFF . NO." 

PRINTMCLR) (BLACKH9 CUR . DES ) ( CBM A} 
{19 SH * ) {CBM S J " : PRINT" { 9 SPCHSH B 
} "R$"{SH -}" 

PRINT" { 9 CUR .DES} {CBM Z } { 1 9 SH * } { CB 

PRINT" {CUR. GIU) 1. AGG . NOME" : PRINT" { 
CUR. GIU} 2. ELIMINA" 

PRINT"{CUR.GIU) 3. CERCA ":PRINT"{CU 
R . GIU } 4. ESAMINA" 

PRINT"{CUR.GIU) {SH SPC } 5 . CAMBIA":PR 
INT" {CUR . GIU } 6. REGISTRA" 
PRINTMCUR.GIU} 7. OPZIONE STAMPA":P 
RINT" { CUR . GIU } 8. FINE" 

RESTORE :PRINT"{2 CUR.GIUJCOSA SCEGLI 
?" 

GETA$:IFA$-""THEN190 
IFA$<"1 "0RA$>"8"THEN1 90 
READB$:IFB$<>"{CBM -)"THEN210 
A-VAL(A$):ONAGOT 0240, 290, 320, 420, 490 
,500,520,510 

P0KE1 98 , 10:FORI-OTO9:POKE631 +1 , 1 3: NE 
XT : END 

READA$:IFA$<>"{CBM +}"THEN240 
READA: PRINT" {CLR} INPUT 0 PER SCONOSC 
IUTO {CUR. GIU}" 

PRINT"RECORD : " A " { CUR . GIU } " s FOR I - 1 T 
OR : PRINTO$(I ) : INPUTW$(I ) : PRINT : I FW$ ( 
1 )-""THEN1 40 

NEXT :H$(0)*"XX"+CHR$(34 )♦" , " + ST R$ ( A ) 
: Z-A«1 0+91 0:K-0: PRINT" {CLR} {2 CUR. Gl 


U}" 

FORI-ZTOZ+R: PRINTI ; "D AT A "CHR$ ( 34 ) ( 
K ) : K-K+ 1 : NEXT: PRINT" RUN{ HOME}" : G0T02 
30 

B$-"" :PRINT"{CLR}QUALE RECORD DA ELI 
MINARE" : INPUTBS : I FVAL ( B$ ) -OTHEN 1 40 


I 300 PRINT" { CLR } {2 CUR . GIU } " : Z- VAL ( B$ ) • 1 0 
♦910:PRINTZ"DATA"CHR$(3«)"{CBM + }"CH 
R*(3«)" ,"VAL(B$) 

310 FOR I-Z+1T0Z+R: PRINT I : NEXT : PRINT"RUN { 
HOME}" :GOTO230 

320 INPUT"(CLR)RICERCA DI " ; B$ : IFB$=""TH 
ENI 40 

330 H = 0 : READA$ 

335 IFA$-"END"THENPRINT"{CLRHCUR.DES} {C 
UR.GIU}CAMP0 NON TROVATO" : FORT-OTO 2 
000 : NEXT : G0T01 «0 

3*10 I FA $■ " { CBM ♦}"THENREADA:G0T0330 
350 READA:F0RI-1T0R :READA$(I) :IFLEFT$( A$ 
(I) , LEN ( B$ ) )-B$THENH*1 
360 NEXT:IFH-OTHEN330 

370 PRINT" {CLRJRECORD :"A"{2 CUR.GIU}":F 
ORI -1T0R SPRINT" (2 SPC}"A$(I) sNEXTsIF 
W-1THENRETURN 

380 PRINT" (2 CUR.GIUJPREMI UN TASTO" 

390 GETA$:IFA$»""THEN390 
«00 IFQ-1 THENRETURN 
410 GOT0140 

420 A $■ " " : INPUT" (CLR)QUALE RECORD";A$:A= 

V AL ( A$ ) :IFA$-""0RA<1THEN1 40 
«30 READA$:IFA$="END"THEN140 
440 IFA$O"XX"THEN«30 
450 READA$:IFAOVAL(A$)THEN«30 
460 READA$(1):IFA$(1)-"{CBM + }"THEN140 
470 F0RI-2T0R:READA$(I) : NEXT: 0=1 :GOSUB37 
. 0:Q»0: I FW* 1 THENRETURN 
480 G0TO140 

490 W-1 :GOSUB420:W-0:PRINT"{HOME}{2 CUR. 

GIU}" :F0RI = 1T0R: INPUTW$(I) : GOTO 270 
500 PRINT "ICLR}":SAVE"#0:" + R$,8:END 
510 END 

520 PRINT" {CLR} (2 CUR.GIU}{RVS ON } { 3 SPC 
} OPZ IONI STAMPANTE { 3 SPC}" 

530 PRINT" {CUR. GIUHRVS 0N}1{RVS OFF} LI 
STA TOTALE" 

540 PRINT" {CUR. GIU} {RVS 0N}2{RVS OFF} ET 
ICHETTE POSTALI" 

550 PRINT" {CUR. GIU} {RVS 0N)3(RVS OFF} DA 
TI INDIVIDUALI" 

560 PRINT" {CUR. GIU) {RVS 0N}4{RVS OFF} ET 
ICHETTA SINGOLA" 

570 PRINT" {CUR .GIU } (RVS 0N}5{RVS OFF) RI 
TORNO AL PROGRAMMA" 

580 GETZ$:IFZ$=""THEN580 
590 Z-VAL(Zt) 

600 IFZ<10RZ>5THEN520 
610 OPEN 1 , 4 : RESTORE 
620 0NZG0T0640 ,7«0,810,810 
630 CL0SE1 : GOT0 1 40 

640 READB$:IFB$<>"{CBM -}"THEN640 
650 READB$:IFB$-"{CBM ♦ } "THENCLOSE 1 : GOTO 
140 

660 IFB$ = "XX"THENREA DA SPRINTAI ,CHR$(10)C 


ti, modificarne altri, sal- 
varli per intero sulla me- 
moria di massa e richiamar- 
li in un secondo tempo. 

È stata usata una particola- 
re tecnica di programma- 
zione grazie alla quale il 
programma si automodifica 
aggiungendo in coda ulte- 
riori linee di DATA conte- 
nenti le informazioni che 
man mano inserite. Queste 
nuove linee DATA compari- 
ranno per pochi secondi 
21 


sullo schermo dopodiché il 
programma riprenderà 
l’esecuzione. Tra le altre co- 
se il menù prevede un’uti- 
lissima funzione di ricerca 
che vi permette di ottenere 
tutte le informazioni rela- 
tive ad un nominativo ri- 
chiamandone semplice- 
mente il cognome. 


HR$(10)"REC0RD";A: G0SUB690 : GOTO 6 50 
670 PRINT # 1 ,B$ 

680 G0T0650 

690 READB$:F0RI-1T050 

700 IFMID$(B$,I,1 )-" "THENX-I :I-50 

710 NEXTI 

720 N2$-LEFT$(B$,X) :N1$-RIGHT$(B$,LEN(B$ 
)-X) :PRINT#1 

730 PRI NT # 1 , N 1 $ ; " " ; N2$ : RETURN 
740 READB$:IFB$<>"{CBM -}"THEN740 
750 READB$:IFB$-"(CBM ♦ } "THENCLOSE 1 : GOTO 
140 

760 IFB$O"XX"THEN750 

770 READA:PRINT#1 ,CHR$ ( 1 0 ) i G0SUB690 : GOSU 
B780 : G0T0750 

780 FORI-1 T04 : RE AD A$ ( I ) : NEXT 
790 PRINT#1 ,A$(1 ):PRINT#1 , A$ ( 2 ) ; " , ";A$( 
3 ) ; " { 3 SPC } " ; A$ ( 4 ) 

800 RETURN 

810 INPUT"(CLR) (CUR.GIU)QUALE RECORD" ; Q : 
RESTORE 

820 READB$:IFB$<>"(CBM -)"THEN820 
830 READ B$ 

840 IFB$-"(CBM +}"THENPRINT"NON ESISTE N 
EL FILE" :FORX-OTO 1500: NEXTX:CL0SE1 :G 
OTO 140 

850 IFB$="XX"THENREADA: IFA-QTHEN870 
860 G0T0830 

870 PRINT# 1 ,CHR$(10)CHR$( 10) "RECORD" ;A:G 
0SUB690 

880 IFZ-4THEN900 

890 F0RX=1 TO R“1 :READB$:PRINT#1 , B$ : NEXT : 

CL0SE1 : GOTO520 
900 GOSUB780 : CLOSE 1 :GOT0520 
910 DATA" {CBM -)" 

920 DATA"XX" , 1 

921 DATA"GRUPPO EDITORIALE JACKSON" 

922 DATA"ROSELLINI 12" 

923 DATA"MILANO" 

924 DATA"MILANO" 

925 DATA "20100" 

926 DATA"02-688095 1 " 

927 DATA" " 

928 DATA" " 

930 DATA" {CBM +}", 2 
940 DATA" {CBM ♦}", 3 
950 DATA" (CBM ♦ )" , 4 
960 DATA" (CBM +}",3 
970 DATA" (CBM ♦)",4 
980 DATA" (CBM +}" P 5 
990 DATA" (CBM *)",6 
1000 DATA" (CBM ♦)",7 
1010 DATA" (CBM ♦}",8 
1020 DATA" (CBM *)",9 
1030 DATA" ( CBM +}",10 
1040 DATA"SND" 
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1 DIMAL$(50) ,A1 $(50) .IN (50) .RII (2*0) 

2 F0RZZ«1T036:READAL$(ZZ):NEXT 

10 PR I NT" { CLR } { 1 2 CUR.GIUH11 CUR.DESJTE 
ACHER - MACHXNE" 

20 FORZZ-1T010000:NEXT 

25 PRI NT" [ CLR ) { 2 CUR.GIU}{2 CUR.DESJA){2 
SPC } ASCOLTO CARATTERI" 

30 PRXNT"{2 CUR . GIU } {2 CUR.DESjB){2 SPC) 
TEST TELEGRAFIA" 

35 PRINT"{2 CUR . GIU ) {2 CUR.DES)C){2 SPC) 
STOP" 

HO PRINT" (IH CUR . GIU ) { 1 1 CUR . DES ) DIGIT A 
LA SCELTA" 

H5 PU-70:LI-210:CA-1 
50 GETSC$: I FSC " "THEN50 
52 IFSC$-"C"THENSTOP 
55 IFSC$="B"THEN100 
60 IFSC$O"A"THEN50 

62 PRINT" { CLR ) { 1 2 CUR.GIU){2 CUR.DESJDIG 
ITA UN CARATTERE ($ PER USCIRE)" 

6H GETSC$:IFSC$-”$"THEN25 
66 F0RZZ-1T036:IFAL$(ZZ)-SC$THENIN(CA)-Z 
Z : GOSU8U3 1 0 
68 NEXTZZ : G0T06H 

100 PRINT" { CLR ) {1 2 CUR.GIU}{10 CUR.DESjT 
EST DI TELEGRAFIA" 

110 PRINT" { 1 0 CUR . GIU ) { 1 2 CUR . DES ) PREMI 
UN TASTO" 

120 GETX$:IFX$-""THEN120 

130 PRINT" (CLR)COMPARIRANNO SULLO SCHERM 
0 AD UNA AD" 

1 HO PRINT"UNA LE LETTERE DELL'ALFABETO E 
D I NUMERI" 

150 PRI NT"SE VUOI CHE LA LETTERA CHE COM 
PARE DI" 

160 PRINT" VOLTA IN VOLTA SULLO SCHERMO S 
IA" 

170 PRINT "COMPRESA TRA LE LETTERE CHE PO 
SSONO" 

180 PRINT"ESSERE DETTATE , BATTI A LATO DE 
LLA” 

190 PRINT"LETTERA STESSA S i ALTRIMENTI B 
ATTI N" 

200 PRINT"BATT I $ PER USCIRE" 

210 PRINT" t 1 H CUR . GIU ) {12 CUR . DES ) PREMI 
UN TASTO" 

220 GETX$: IFX$-" "THEN220 
225 PRINT" { CLR } " 

HOO GOSUB3500:GOSUBHOOO:GOSUB5000 
H01 PRINTMCLR) {10 CUR.GIU){12 CUR.DESJD 
ETTATURA TESTO" 

H02 PRINT" { 1 0 CUR . GIU } { 1 2 CUR . DES ) PREMI 
UN TASTO" 

H03 GETX$:IFX$-""THENH03 
HOH G0SUB5500 
H05 Z2-0 
H 1 0 F0RK-1T0NU 


MORSE 


Il linguaggio Morse è per 
chi non ricordasse, uno 
standard di trasmissione 
utilizzato agli albori delle 
telecomunicazioni per codi- 
ficare con due simboli, la li- 
nea e il punto, qualsiasi te- 
sto o sequenza numerica. 
Agli inizi dell’era della tele- 
comunicazione, quando il 
solo mezzo per trasmettere 
messaggi era quello di affi- 
darli ad un corriere a caval- 
lo, la scoperta della pila e la 
conoscenza delle proprietà 
dei conduttori, aprirono 
l’orizzonte alla comunica- 
zione a distanza tramite fili 
con l’invenzione del tele- 
grafo. 

Per lungo tempo in attesa 
di apparati capaci di comu- 
nicare in fonia, capaci cioè 
di trasmettere la viva voce, 
23 


l’unico segnale trasmesso 
fu esclusivamente di tipo 
logico, ossia costituito di 
due soli stati: la presenza o 
l’assenza di corrente nella 
linea di trasmissione. 
Questa limitazione non 
avrebbe consentito la tra- 
smissione di messaggi come 
testi e dati se non si fosse 
inventato il primo stan- 
dard di trasmissione seriale 
della storia: il codice Mor- 
se. 

Codificando con una preci- 
sa sequenza di linee e punti 
i caratteri è stato possibile 
inviare dispacci a distanza 
tramite filo e poi, dopo l’in- 
venzione della radio, anche 
per via etere. 

Oggi, grazie alla esponen- 
ziale crescita tecnologica, il 
linguaggio morse ha ceduto 
il passo a sistemi più evolu- 
24 


GOSUB6OO0 : RETURN 

44 90 IFIN(CA)-20THENGOSUB6500: RETURN 
<»500 IFIN(CA)=21THENGOSUB6000:GOSUB6000: 
G0SUB6500: RETURN 

«510 IFIN(CA)*22THENGOSUB6000:GOSUB6000: 

GOSUB6000:GOSUB6500: RETURN 
4520 IFIN(CA)-23THENG0SUB6000:G0SUB6500: 
G0SUB6500: RETURN 

4530 IFIN(CA)-24THENGOSUB6500iGOSUB6000: 

GOSUB6000:GOSUB6500: RETURN 
4540 IFIN(CA)-25THENG0SUB6500:GOSUB6000: 

GOSUB65OO:GOSUB6500: RETURN 
4543 IFIN(CA)=26THENGOSUB6500:GOSUB65O0: 

G0SUB6000:G0SUB6000: RETURN 
4546 IFIN(CA)-27THENGOSUB6000!GOSUB6500: 
G.OSUB6500 : GOSUB6500 :GOSUB6500: RETUR 
N 

4550 IFIN(CA)-28THENG0SUB6000:G0SUB6000: 
GOSUB6500:GOSUB6500:GOSUB6500: RETUR 
N 

4560 IFIN(CA)-29THENGOSUB6000:G0SUB6000: 
GOSUB6000 : G0SUB6500: GOSUB6500: RETUR 
N 

4570 IFIN(CA)=30THENGOSUB6000:GOSUB6000: 
G0SU36000 : G0SUB6000 : GOSUB65O0 : RETUR 

N 

4580 IFIN(CA)-31THENG0SUB6000:G0SUB6000: 
G0SUB6000 : GOSUB6000 : G0SUB6000 : RETUR 
N 

4590 IFIN ( C A ) - 32THENGOSUB6500 :G0SUB6000: 
GOSUB6000:GOSUB6000:GOSUB6000: RETUR 
N 

4600 IFIN (C A ) «33THENG0SUB6500 : GOSUB6500 : 
GOSUB6000 : GOSUB6000 : GOSUB6000 : RETUR 
N 

4610 IFIN(CA)-34THENG0SUB65O0:GOSUB6500: 
G0SUB6500 : G0SUB6000 :GOSUB6000: RETUR 
N 

4620 IFIN (CA ) «35THENG0SUB6500 :GOSUB6500: 
GOSUB6500 : G0SUB6500 :G0SUB6000: RETUR 
N 

4630 IFIN(CA )-36THENGOSUB6500: GOSUB6500 : 
GOSUB6500 :GOSUB65O0:GOSUB65O0: RETUR 
N 

4640 PRINT"ERRORE": RETURN 
5000 PRINT" { CLR } { 8 CUR . DES } VEL0C ITA ' DI 
DETTATURA" 

5010 PRINT" { 3 CUR . GIU ) BATT I UN NUMERO CO 
M PRESO TRA 1 E 9" 

5020 PRINT" { 3 CUR. GIU}1 - VELOCITA* MINI 
MA" 

5030 PRINT" { 3 CUR . GIU ) 9 - VELOCITA’ MASS 
IMA" 

5035 GETV1 : IF V 1 < 1 ORV 1 > 9THEN50 35 
5040 LI-INT( (-400*V1 +3900) /7) :PU- INTUÌ/ 
3 ) : RETURN 

5500 F0RT-1TO1000:NEXT:P0KE54296,15:POKE 


I 420 FORZI -1T05:CA-1+INT( (1-0.01 )*RND(1 )) 

423 Z2-Z2»1 

425 RI$(Z2)-A1$(CA) 

430 G0SUB4 3 10:F0RZZ»1T0LI : NE XTZZ 
760 NEXTZ1 

770 FORUM -1T05*LI:NEXT 

780 NEXTK 

790 G0T08000 

3500 1-0 

3510 F0RJ-1T036 

3520 PRINTAU(J):INPUT”{2 CUR . DES } { CUR . S 
U}";IN$:IFIN$-"S"THENI-I*1:IN(I)-J: 
A1$(I )-AL$(J) 

3530 IFIN$-”$"THENRETURN 
3540 NEXTJ s RETURN 

4000 PRINTMCLRH3 CUR . GIU } QUANTI GRUPPI 
DI 5 CARATTERI VUOI” 

4010 INPUT” (4 CUR . GIU } { 1 1 CUR . DES }( MASS I 
MO 48 GRUPPI)";NU 
4030 IFNU<49ANDNU>0THENRETURN 
4040 G0T04000 

4310 IFIN(CA)-1THENG0SUB6000:G0SUB6500:R 
ETURN 

4320 IFIN(CA)-2THENGOSUB6500:GOSUB6000:G 
OSUB6000:GOSUB6000: RETURN 
4325 IFIN(CA)-3THENG0SUB6500:G0SUB6000:G 
0SUB6500: GOSUB6000 : RETURN 
4330 IFIN(CA )-4THENG0SUB6500:G0SUB6000:G 
OSUBÓOOO: RETURN 

4 340 IFIN ( CA ) «5THENGOSUB6000 : RETURN 
4350 IFIN(CA)-6THENGOSUB6000:GOSUB6000:G 
OSUB6500:G0SUB6 000: RETURN 
4360 IFIN(CA) «7THENGOSUB6500 : GOSUB6500 : G 
0SUB6000 : RETURN 

4370 IFIN(CA)-8THENGOSUB600O:GOSUB6OOO:G 
0SUB6000: GOSUB6000 : RETURN 
4380 IFIN(CA)*9THENGOSUB6000:GOSUB6000:R 
ETURN 

4390 IFIN(CA)-10THENGOSUB6000:GOSUB6500: 
GOSUB6500: RETURN 

4400 IFIN(CA)-1 1THENGOSUB65OO:GOSUB6OO0: 
G0SUB6500: RETURN 

4410 IFIN(CA)-12THENG0SUB60O0:GOSUB6500: 

GOSUB6OOO:GOSUB600O: RETURN 
4420 IFIN(CA)-1 3THENGOSUB6500 : GOSUB6500 : 
RETURN 

4430 IFIN(CA)«1 4THENGOSUB6500 : GOSUB6000 : 
RETURN 

4440 IFIN(CA)»1 5THENG0SUB6500 :G0SUB6500: 
GOSUB6500: RETURN 

4450 IFIN(CA)-16THENGOSUB6000:GOSUB6500: 

G0SUB6500 : GOSUB6000 : RETURN 
4460 IFIN(CA)*1 7THENGOSUB650O :GOSUB6500: 

GOSU36000 : GOSUB6500 : RETURN 
4470 IFINCCA )-1 8THENG0SUB6000 : G0SUB6500 : 
G0SUB6000 : RETURN 

4480 IFIN(CA)-1 9THENG0SUB6000:GQSUB6000: 


ti, come la fonia o codifiche 
digitali come RTTY e tante 
altre, ciononostante il fa- 
scino del di-di-da trasmesso 
da molte emittenti radio 
sulla gamma delle onde cor- 
te affascina ancora molti 
appassionati di radioascol- 
to. 

Certamente non capita più 
di ricevere i drammatici 
SOS lanciati dalle navi in 
difficoltà, come accadeva 
agli inizi del secolo, ma può 
essere ugualmente interes- 
sante provare ad intercet- 
tare i messaggi amatoriali o 
segreti che ancora si tra- 
smettono in Morse su lunga 
e lunghissima distanza. 
Infatti nei collegamenti su 
lunghe distanze, quando la 
parola non è più intelleggi- 
bile, la vecchia nota spezza- 
ta del morse resta ancora 
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l’unico mezzo per farsi ca- 
pire. 

Il programma presentato in 
queste pagine non ha la 
pretesa di farti diventare in 
breve tempo un esperto 
radiomarconista, cionono- 
stante potrà costituire un 
mezzo per avvicinarti al 
linguaggio morse attraver- 
so il validissimo aiuto del 
computer. 

Il menu iniziale consente 
diverse interessanti opzio- 
ni, come l’ascolto dei carat- 
teri batutti sulla tastiera o 
un test in base ai codici co- 
nosciuti e un testo presta- 
bilito. 


54277. 1Y:P0KE54278, 248 
5510 POKE54273.86:POKE54272, 1 05 : POKE5427 
6.17 

5520 FORT-1T02000:NEXT 

55 30 P0KE5 '1276. 0:POKE5 4277,0: P0KE54278.0 
: FORT- 1 T0 1 000: NEXT: RETURN 
6000 POKE54296, 15:P0KE54277. 17 :P0KE54278 
,21)8 

6010 P0KE54273,86:P0KE54 272, 105.-P0KE5427 

6.17 

6020 F0RT-1T0PU:NEXT 

6030 P0KE54276 ,0: P0KE54277 ,0:POKE5 4278 ,0 
: RETURN 

6500 POKE54296,15:POKE54277. 17:POKE54278 
.248 

6510 POKE54273.86 :P0KE54272, 105:P0KE5427 

6.17 

6520 FORT- ITOLI :NEXT 

6530 POKE54 276, 0 :POKE54 277. 0:POKE54 278,0 
: RETURN 

8000 PRINT" {CLR} (3 CUR . GIU } ( CUR . DES } A ) { 2 
SPC } VEDERE TESTO DETTATO" 

8020 PRINT" { 3 CUR .GIU) ( CUR . DES ) B ) {2 SPC) 
MODIFICA LETTERE SCELTE" 

80^0 PRINT" { 3 CUR. GIU) (CUR. DESJC) (2 SPC) 
MODIFICA VELOCITA'" 

8035 PRINT" { 3 CUR . GIU ) { CUR . DES } D ) ( 2 SPC} 
INIZIO PROGRAMMA" 

8037 PRINT" { 3 CUR. GIU} (CUR . DES )E) (2 SPC} 
STO?" 

8040 PRINT" { 6 CUR .GIU} { 1 2 CUR . DES } DIGITA 
LA SCELTA" 

8050 GETX$:IFX$-"" G0T08050 
8060 IFX$-"A"THENG0T081 10 
8070 IFX$="B"THENPRINT" {CLR}" :G0SUB3500: 
G0T0401 

8080 IFX$="C"THENGOSUB5000:GOT0401 
8090 IFX$-"D"THENG0T025 
8095 IFX$-"E"THENSTOP 
8100 GOTO8050 

8110 PRINT" { CLR} ":F0RK-1T05*NUSTEP5 
8160 PRINT" { 3 CUR . GIU } { 2 CUR . DES } " s RI $ ( K 
) i " { 2 CUR.DES}";RI$(K+1);"{2 CUR. DE 
S}" ; RI$(K+2) : " {2 CUR. DES}" 

8170 PRINT"{CUR.SU} li 1 CUR.DES}";RI$(K*3 
) ; " { 2 CUR.DES}"jRI$(K*4) 

8175 GETZ$:IFZ$-""THEN8175 

8176 NEXTK 
8180 G0T08000 

10000 DATA A.B.C.D.E.F.G.H.I.J.K.L.M.N.O 
.P.Q.R 

10010 DATA S,T,U,V,W,X,Y,Z,1 ,2, 3, 4, 5, 6, 7 
.8,9,0 
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Bowling 




Ecco il divertente gioco del 
Bowling per uno, due o tre 
giocatori. 

All’inizio del game, la palla 
si muove velocemente da 
un lato all’altro della pista 
e voi dovrete cercare di far- 
la partire quando è al cen- 
tro premendo la barra spa- 
ziatrice; solo in tal modo ri- 
uscirete ad abbattere tutti 
i 10 birilli eseguendo il col- 
po che in gergo si chiama 
STRIKE. 
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Per chi non conosce le rego- 
le del Bowling, le riassu- 
miamo in breve. Ogni gioca- 
tore ha a disposizione 10 
tentativi durante i quali ef- 
fettua uno o due tiri. Il 
punteggio ottenuto è ugua- 
le al numero di birilli ab- 
battuti, ma esistono anche 
dei “punti premio": se con 
la prima palla si ottiene 
uno STRIKE, non si effet- 
tua il secondo tiro, ma si ag- 
giungono ai 10 punti già to- 


10 L(1)-1193:L(2)«1273:L(3)-1353:C$(1)-" 
(HOME) { 1 1 CUR.GIUH8 CUR.DES)" 

11 C$(2)-C$(1 ) ♦ * { 1 3 CUR.DES)":C$(3)-C$(2 
) ♦" { 1 3 CUR.DES)":C$-C$(1 ) 

12 B0 = 53280:SC-53281 : C0-5H272 : SC ( 1 ) -1 3 : S 
C(2)-15:SC(3)-7:BO(1 )-1 3:BO(2)-15 

15 BO ( 3 ) “7 

17 FORT = COTOCO*2<< : POKET , 0 : NEXT : P0KEC0+24 
,15:P0KEC0*5,17:P0KEC0-6,2H1 :P0KEC0,3 
0 

18 POKECO* 1 ,10 

110 POKEBO.O:POKESC,0:PRINT"{CLR} {0RANGE 
CUR.SU) {A CUR . DES ) { RVS ON) B 
0 W L I N G " 

112 PRINT"{8 CUR.GIUH8 CUR . DES ) ( C YAN ) QU 
ANTI GIOCATORI (1-3)?" 

1 1 3 GETA$: A-VAL(A$) : I F A < 1 OR A > 3THEN 1 1 3 
115 X$-"I NOMI" : IFA-1THENX$-"IL NOME" 

118 POKEBO , 8 : POKESC ,8:PRUJT*{CLR){3 CUR. 

GIU ) {5 CUR.DES) 1 BLACK ) INTRODURRE "X$ 
": (5 CUR. GIU)" 

120 F0RX-1T0A 

121 PRINT'MCUR.GIU) (5 CUR . DES ) GIOCATORE" 
X; 

122 INPUT A $ ( X ) 

1 23 A$(X)-LEFT$(A$ (X) , 6) :NEXT: POKESC ,SC( 

1 ) :P0KEB0,B0(1 ) 

128 PRINT" { C L. R } {CUR .GIU) {8 CUR . DES }{ BLUE 
) l RVS 0») 1 2 3 1 5 6 7 8 9 1 0 { 2 SPC 
) { RVS OFF ) {RED ) ":PRINT"{9 CUR.DES)" 

129 FORX-1T010:PRINT"{RVS ONJHRVS 0FF)2 
"; :NEXT:PRINT"{RVS 0N)3(RVS OFF)" 

132 PRINTTAB(8)"{BLUE) (21 SH D)":PRINTT 
AB(9)"{CUR.GIU) (21 SH D}" 

133 0N-(A=1 )G0T0138 

1 3 1 » PRINTTAB ( 8 ) " { CUR . GIU } ( 21 SH D)":0N- 
(A-2)G0T01 38 

136 PRINTTAB(81" 1 CUR .GIU ) (21 SH D)" 
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1 138 PRINTLEFT$(C$,12)" "A$(l)"s" 

146 IFA>1THENPRINTTAB(14)"{CUR.SU}"A$(2) 

150 IFA>2THENPRXNTTAB(27)"tCUR.SU}"A$(3) 

154 PRINTLEFT$(C$.12)"{2 CUR . GIU K BLUE } 
138 SH F}" 

156 PRINT" { 9 CUR. GIU} (38 SH E}" 

160 FORQ-ITOIO 

166 F0RZ9-1T0A:P0KESC ,SC(Z9) :P0KEB0,B0(Z 
9) 

167 FORX-1TO10:READV:POKEV,8l : POKEV+CO , 6 
: NEXT : RESTORE 
169 J-0:G-0 

170 G0SUBH30:G0SUB550:P-L(Z9) :G0SUB1000: 

L(Z9)-P 
172 G0SUB1 200 

1 7*) ON-(L(Z9)/2-INT(L(Z9)/2))GOTOl69 
175 IF(PEEK(L(Z9)-«1 ) -4 7 ANDQ- 1 0 ) -OTHEN 1 95 
178 PRINTLEFT$(C$,12)"{7 CUR . GIU } { CUR . DE 
S}{RED)"A$(Z9)". ANCORA UN TIRO!{BLU 
E}" 

180 F0RX-1TO5000:NEXT 

182 PRINTLEFT|(C$, 1 2)" (7 CUR.GIU}{24 SPC 
}" 

184 FORX-1T010:READV:POKEV,81 :P0KEV+C0,6 
: NEXT : RESTORE 

1 90 J-O:GOSUBH30:GOSUB55O:T(Z9)«T(Z9)+J: 
PRINTCKZ9) ;T(Z9) 

192 K-J+H8 : IFJ*PEEK(L(Z9)-1 )-224-10THENK 
-47 

193 IFK-58THENK-152 

1 94 POKEL ( Z9 ) , K : POKEL(Z9)+CO,9: GOTO 22 5 
195 U-0: IF(PEEK(L(Z9)-2)-152ANDQ-1O)-0TH 
EN225 

198 PRINTLEFT$(C*,12)"{7 CUR . GIU } (CUR . DE 
S) {RED}"A$(Z9) n , ANCORA DUE TIRI!{BL 
UE}" 

202 F0RX-1T03000:NEXT 

203 PRINTLEFT$(C$, 1 2 ) " { 7 CUR.GIU}{24 SPC 
}" 

206 L(Z9)-L(Z9)-1 

207 FORX-1TO10:READV:POKEV,8l :P0KEV+C0,6 
: NEXT : RESTORE 

209 J-0:GOSUB430:GOSUB550:T(Z9)-T(Z9)+J 
210 K-J*176: IFK- 1 86THENK- 1 52 : T ( Z9 ) -T ( Z9 ) 
-JMU-0) 

21 1 PRINTC$(Z9) ; T ( Z9 ) :P0KEL(Z9) , K : POKEL ( 
Z9)*C0,4:L(Z9)-L(Z9)+1 
213 IFPEEK(L(Z9)-1 ) -1 52THENF0RX-1 T01 0 : RE 
ADV : POKEV , 81 : POKEV*CO . 6 : NEXT : RESTORE 
214 U-U*1 :0NUG0T0209,225 
225 NEXTZ9 : NEXTQ 
230 G0T0882 
430 N-1 827 s 1-40 

440 P0KEN,32:N-N*I:IFN<16240RN>1868THENI 


talizzati quelli dei due tiri 
seguenti. Se invece col pri- 
mo tiro si abbatte solo una 
parte dei birilli, si lancia la 
seconda palla; se con essa si 
ottiene uno SPARE, (cioè si 
abbattono i birilli rimanen- 
ti), si aggiungono ai 10 pun- 
ti totalizzati nel turno 
quelli del tiro successivo. 
Chi dovesse effettuare uno 
SPARE o uno STRIKE al de- 
cimo e ultimo avrà la possi- 
bilità di lanciare rispettiva- 
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mente una o due palle sup- 
plementari. Sul tabellone, 
una “X” contrassegna gli 
STRIKE e una “I" gli SPARE. 
Buon divertimento.... 


“ Tratto da Papersoft 
n 0 5/’84 ” 


Non perdete il 
prossimo numero di 
Jackson Soft 
Compilation. Lo 
troverete in edicola il 
10 Settembre. 


460 P0KEN*C0,0:P0KEN,81 : GET A » : 0N- ( A$- " " ) 
GOTO440: RETURN 
550 N-N* 1 : GETA$ 

554 IFPEEK(NX>81THEN595 
558 Q2 = N : G0SUB6 1 0 

560 P0KEC0*4 , 1 7 : P0KEN- 1 ,32:POKEN*CO,0:PO 
KEN.81 : P0KEC0* 4,16 
562 F0RW-1T03 

566 IFPEEK(N-39«W)-81THENQ2-N-39«W: GOSUB 
610 

569 IFPEEK ( N + 4 1 «W ) -8 1 THENQ2-N* 4 1 «W: GOSUB 
610 

572 NEXT 

595 P0KEC0+4, 17:H-H*1 :P0KEN-1 ,32:P0KEN+C 
0,0: POKEN , 8 1 :POKECO*4,16 
597 IFH-36THEN61 2 
600 GOT0550 

610 J = J+1 :POKECO+4,33:POKEQ2,32:FORT-1TO 
50:NEXT:P0KEC0+4,32:RETURN 
612 H=0: POKEN, 32: POKEN- 1 ,32: RETURN 

882 PRINTC$;"{3 CUR.GIUllRVS ONHBLACKjP 
UNTEGGI FINALIlCUR. GIU) (BLUE)" 

883 PRINT" { 9 CUR.DES}"A$(1 );T(1):1FA>1TH 
ENPRINT"{CUR.GIU} {9 CUR . DES } " A $ ( 2 ) ; T 
(2) 

884 IFA«3THENPRINT"{CUR.GIU}{9 CUR. DES}" 

; A$ ( 3 ) ; T ( 3 ) 

887 PRINTMRED} (CUR. GIU) (8 CUR . DES } ANCOR 
A (S/N)?" 

894 GETA$:IFA$=""THEN894 

895 IFA*-"S"THENRUN 

896 SYS2048 

1000 G=J:IFP/2<>INT(P/2)THENC«G+176 
1002 IFG-186THENG-152 
1004 IFP/2-INT(P/2)THENG-G+48 
1006 IFG+PEEK( P- 1 )-224-10THENG-47 
1012 P0KEP,G:P0KEP+C0,9:IFC-1 52THENP-P+1 
:G-0 

1100 P-P + 1 : RETURN 
1200 : 

1201 T ( Z9 ) -T ( Z9 ) + J 

1205 T(Z9)-T(Z9)-J* (PEEK(L(Z9)-2)-47) 
1210 T(Z9)“T(Z9)-10*(PEEK(L(Z9)“3)*^7AND 
PEEK(L(Z9)-2)-152) 

1220 IFL(Z9)-12720RL(Z9)-1 3520RL(Z9)-1 43 
2THEN1290 

1225 T(Z9)-T(Z9)“J*(PEEK(L(Z9)-4)-152) 

1227 T(Z9)-T(Z9)-J*(PEEK(L(Z9)-3)-152) 

1228 T(Z9)-T(Z9)-J*(PEEK(L(Z9)-5)-152AND 
PEEK(L(Z9)-3)-152) 

1230 T(Z9)-T(Z9)-J*(PEEK(L(Z9)-6)-152AND 
PEEK(L(Z9)-4)«152ANDPEEK(L(Z9)-2)«1 
52) 

1290 PRINTC$(Z9) ;T(Z9) 

J 300 RETURN 

2200 DATAI 661 ,1700,1739,1741 ,1 778,1 780,1 
819,1821,1860,1901 
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I tascabili Jackson sono uno 
strumento prezioso per chi lavora 
con il computer 

SINCLAIR SPECTRUM cod 017H 
VIC ?0 cod 005H 
COMMODORE 64 cod 002H 
PC IBM cod 01 OH 
APPLE Ile cod 003H 
SHARP MZ80A cod 014H 
LA PROGRAMMAZIONE cod 004H 
WORD STAR cod OOBH 
UNIX cod 009H 
LOGO cod 020H 
MS-DOS cod. 019H 
PROGRAMMI DI STATISTICA cod. 
01 5H 

CP M cod 01 IH 
PC-DOS cod 012H 

.OGNI TASCABILE COSTA L I 


BASIC cod. 007H 
ASSEMBLER Z80 cod. 016H 
ASSEMBLER 6502 cod. 013H 
COBOL cod. 001 H 
FORTRAN 77 cod 01 OH 
PASCAL cod 006H 
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;he, altri listati per 


La softrivista co 


COMMODORE 64 



